<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>5329</cardID>
<listID>2089</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>--HyperTEACH v. 1.02b11/17/91--Copyright @1991 by Michael Land--Michael Land--3400 Taft Blvd--Midwestern State University--Wichita Falls, TX 76308--Office: (817) 692-6611 ext 4139--Home (817) 692-8573--CompuServe: 71640,2020--AppleLink: MLand or West.Exc.Lab--BITNET: MLand@AppleLink.APPLE.COM--The videodisc drivers in this stack are courtesy of--The Voyager Company,--Pacific Coast Highway--Santa Monica, CA 90401--(213) 451-1383.--They may NOT be used in any commercial product without permission--from the Voyager Companyon openStackglobal positiveCard, optionsDataset the UserLevel to 5if the short Name of this stack is "HyperTEACH"thenput empty into fld "Positive Data"put "0" into word 1 of fld "Options"put "50" into word 2 of fld "Options"put "te" into word 3 of fld "Options"put "te" into word 4 of fld "Options"answer "This is your master copy of HyperTEACH. Do you want to start a new stack?" WITH "No" OR "Yes"if it is "Yes"thenask "Name of your new stack:" with "Type file name here."put it into newNamecreate stack newName with bg "MSTR"exit openStackelseASK "You are about to exit the program!" with "OK"if it is "me"thenexit openStackelsedoMenu "Quit HyperCard"end ifend ifend ifvideo initput fld "Positive Data" into positiveCardput fld "Options" into optionsData--tells the location of the Positive feedback cards & keeps track--of optionsif word 3 of optionsData contains "te"thenput "This is" && the long name of this stack && "."put "Teacher" after menu "Go" with menuMessage showTeachset commandChar of menuItem "Teacher" of menu "Go" to "T"hide menubarshow bg btn "Right"show bg btn "Left"set the userLevel to 5palette "Teacher", "30, 50"elseif word 3 of optionsData contains "st"thenreset menubarhide menubarhide messagehide bg btn "Right"hide bg btn "Left"hide tool windowhide messageif there is a window "Teacher"thenclose window "Teacher"end ifset the userLevel to 3end ifend ifpass openStackend openStackon closeStackif there is a window "Teacher"thenclose window "Teacher"end ifreset menubarpass closeStackend closeStackon idleif the short name of this stack is "HyperTEACH"thenif the number of cards > 1thenanswer "This is your master HyperTEACH stack. It should have only one card; it currently has"¬&& the number of cards && "cards. The extra is being removed."¬with "Oops!!!"go lastdoMenu "Cut card"end ifend ifpass idleend idleon showTeachif there is a window "Teacher"thenclose window "Teacher"elsepalette "Teacher", "30, 50"end ifend showTeachon returnKeychoose browse toolpass returnKeyend returnKeyon arrowKeyend arrowKeyon pushItlock screenpush this cardgo bg "MSTR"end pushIton changeSpecsglobal optionsDataif the shiftKey is downthenanswer "Do you want to change the USER (Teacher or Student) or the PAUSE after feedback?"¬with "USER" or "PAUSE"pushItif it is "USER" then userChangeif it is "PAUSE" then pauseFdbkend ifpop cardend changeSpecson pauseFdbkglobal optionsDataanswer "Set the pause on feedback after correct pages to 50 or 100 ticks?"¬with "50" or "100"if it is "50"thenset the cursor to watchlock screenput 50 into word 2 of fld "Options"put 50 into word 2 of optionsDataunlock screenelseset the cursor to watchlock screenput 100 into word 2 of fld "Options"put 100 into word 2 of optionsDataunlock screenend ifend pauseFdbkon userChangeglobal optionsDataanswer "Set for Student or Teacher use?" with "Student" or "Teacher"if it is "Student"thenput st into word 3 of fld "Options"put st into word 3 of optionsDataif there is a window "Teacher"thenclose window "Teacher"end ifreset menubarhide menubarhide bg btn "Right"hide bg btn "Left"hide tool windowset the userLevel to 2end ifif it is "Teacher"thenput te into word 3 of fld "Options"put te into word 3 of optionsDataput "Teacher" after menu "Go" with menuMessage showTeachset commandChar of menuItem "Teacher" of menu "Go" to "T"hide menubarpalette "Teacher", "30, 50"show bg btn "Right"show bg btn "Left"set the userLevel to 5end ifend userChangeon doMenu itemif item is "Cut Button" or item is "Clear Button"thenanswer "If you are trying to remove a smiley face from a page, use the cut page icon below."¬with "OK"exit doMenuend ifif item is "Delete Stack..."thenanswer "Cannot delete this stack." with "OK"exit doMenuend ifpass doMenuend doMenuon teachpalette "Teacher", "30, 50"end teachon showToolglobal optionsDataif word 4 of optionsData contains "st"thenAnswer "You are in student preview mode. Click on the EYE icon to change to the teacher mode and try again."¬with "OK"exit showToolend ifshow Tool window at 444,32end showToolon newPageglobal optionsDataif word 4 of optionsData contains "st"thenAnswer "You are in student preview mode. Click on the EYE icon to change to the teacher mode and try again."¬with "OK"exit newPageend ifanswer "New page on existing background or a new background?"¬with "New" or "Existing"if it is "Existing"thendoPageBtnelsedoNewBgend ifend newPageon doPageBtnanswer "New card before or after this card?" with "Before" or "After"if it is "Before"thenlock screengo previousdoMenu new cardunlock screenelsedoMenu new cardend ifend doPageBtnon doNewBglock screenset the cursor to busygo last cd of bg (the number of backgrounds)doMenu "New Background"go bg "MSTR"choose the lasso tooldoMenu "Select All"doMenu "Copy Picture"go bg (the number of backgrounds)doMenu "Paste Picture"go bg "MSTR"choose button toolclick at the loc of bg btn "Left"doMenu "Copy Button"go bg (the number of backgrounds)doMenu "Paste Button"go bg "MSTR"choose button toolclick at the loc of bg btn "Right"doMenu "Copy Button"go bg (the number of backgrounds)doMenu "Paste Button"go bg "MSTR"choose fld toolclick at the loc of fld "Page"doMenu "Copy Field"go bg (the number of backgrounds)doMenu "Paste Field"set the script of bg(the number of backgrounds) to "on openCard"¬& return & "put the number of this card into fld" && quote & "Page"¬& quote & return & "put" && quote && "of" && quote && "& the number of cards after fld" && quote & "Page" & quote &¬return & "pass openCard" & return & "end openCard"answer "You are on your new background. When you are ready to be on the card level, use Command-B to leave the background."choose browse toolgo prevgo nextend doNewBgon makeFieldglobal optionsDataif word 4 of optionsData contains "st"thenAnswer "You are in student preview mode. Click on the EYE icon to change to the teacher mode and try again."¬with "OK"exit makeFieldend ifchoose browse toolset the cursor to watchdoMenu New Fieldshow tool window at 443,20answer "Size the field by pulling on a corner and then dragging it where you want it." with "OK"end makeFieldon linkPageglobal optionsDataif word 4 of optionsData contains "st"thenAnswer "You are in student preview mode. Click on the EYE icon to change to the teacher mode and try again."¬with "OK"exit linkPageend ifchoose browse toolask "You are on card" && the number of this cd & ". What card do you want to link TO?"¬with the number of this cd + 1if it < 1 or it > the number of cardsthenask "You are on card" && the number of this cd & ". What card do you want to link TO?"¬with the number of this cd + 1if it < 1 or it > the number of cardsthenanswer "Can't link to card" && it & "." with "Cancel"exit linkPageelsemakeLinkBtn itend ifend ifmakeLinkBtn itend linkPageon makeLinkBtn linkNumlock screenset the cursor to watchdoMenu "New Button"set the script of btn (the number of buttons) to "on mouseUp" & return & "visual effect scroll left slowly" & return & "go cd" && linkNum & return & "end mouseUp"set the icon of btn (the number of buttons) to 1013set the style of btn (the number of buttons) to transparentset showName of btn (the number of buttons) to falseset autohilite of btn (the number of buttons) to trueanswer "Size the button; drag it to where you want it; then choose the Browse tool." with "OK"unlock screenend makeLinkBtnon makeVideoglobal cavClv, theResult, optionsDataif word 4 of optionsData contains "st"thenAnswer "You are in student preview mode. Click on the EYE icon to change to the teacher mode and try again."¬with "OK"exit makeVideoend ifif there is a stack "Audio Help" thenstart using stack "Audio Help"send "startSound" to stack "Audio Help"answer "Prepare an audio sequence or a video button?"¬with "Audio" or "Video"if it is "Audio"thendoMenu "Audio..."exit makeVideoelseend ifend ifchoose browse toolput empty into cavClvvideo getStatusput item 3 of the result into theResultif theResult contains "CAV"THENGETFRAMESEQELSEif theResult contains "CLV"THEN SEQUENCEVIDEOELSEaskTypeif cavClv is empty then exit makeVideoif cavClv contains "CAV"thengetFrameSeqELSEif cavClv contains "CLV"thensequenceVideoend ifend ifend ifend ifend makeVideoon askTypeglobal cavClvanswer "What kind of videodisc will you be using? Will it be standard play (CAV) or extended play (CLV)?"¬with "CAV" or "CLV" or "Exit"if it is "CAV"thenput "CAV" into cavClvelseif it is "CLV"thenput "CLV" into cavClvelseexit askTypeend ifend ifend askTypeon getFrameSeqanswer "Single frame or sequence?" with "Frame" or "Sequence"if it is "Frame"thenframeVideoelsesequenceVideoend ifend getFrameSeqon frameVideoask "What is the framenumber?"put it into frameNumdoMenu "New Button"set the script of btn(number of btns) to "on mouseUp" & return & "video search," & frameNum & return & "end mouseUp"set the icon of btn(number of btns) to 14575set the style of btn(number of btns) to transparentset showname of btn(number of btns) to falseset the autoHilite of btn(number of btns)to trueset the rect of btn(number of btns) to 393, 277, 424, 301end frameVideoon sequenceVideoglobal cavClv, theResultask "What is the starting number?"put it into frameStartNumask "What is the ending number?"put it into frameEndNumlock screendoMenu "New Button"if cavClc contains "CLV" or theResult contains "CLV"thenset the script of btn(number of btns) to "on mouseUp" & return & "video play," & frameStartNum & "," & frameEndNum & ",time" && return & "end mouseUp"elseif cavClc contains "CAV" or theResult contains "CAV"thenset the script of btn(number of btns) to "on mouseUp" & return & "video play," & frameStartNum & "," & frameEndNum && return & "end mouseUp"end ifend ifset the icon of btn(number of btns) to 14575set the style of btn(number of btns) to transparentset showname of btn(number of btns) to falseset the autoHilite of btn(number of btns)to trueset the rect of btn(number of btns) to 393, 277, 424, 301end sequenceVideoon posLink --goes with the + item on palette "Teacher"global optionsDataif word 4 of optionsData contains "st"thenAnswer "You are in student preview mode. Click on the EYE icon to change to the teacher mode and try again."¬with "OK"exit posLinkend ifchoose browse toollock screenanswer "Your 'Positive Feedback' cards must be set up before this button will work properly."¬with "Cancel" or "Continue"if it is "Cancel"thenexit posLinkelseposLinkBtnend ifclick at the loc of btn (the number of buttons)unlock screenend posLinkon posLinkBtn --goes with the + item on palette "Teacher"lock screenset the cursor to watchanswer "Random or specific positive feedback?" with "Specific" or "Random"put it into choiceif choice is "Random"thenask "Number or name (ONE word!) of the card you want to go TO, AFTER the positive feedback?"elseask "Number or name (ONE word!) of the specific positive feedback card you want to go to?"end ifput it into checkput the number of words in check into numif (num > 1 or num = 0)thenanswer "You can enter only one number or one word, but you must have at least one. You had " && num && "items. Click the + button on the Teacher palette and try again." with "Oops!"exit posLinkBtnelseif choice is "random"thendoMenu "New Button"set the script of btn (the number of buttons) to "on mouseUp"¬& return & "global optionsData"¬& return & "put word 2 of optionsData into time"¬& return & "put random (the number of words in fld" && quote & "Positive Data" & quote & ")" && "into numb"¬& return & "put word numb of fld" && quote & "Positive Data" & quote && "into newNumb"¬& return & "visual effect scroll left slow"¬& return & "go cd id newNumb"¬& return & "wait time"¬& return & "visual effect scroll left"¬& return & "go card" && check¬& return & "end mouseUp"elsedoMenu "New Button"set the script of btn (the number of buttons) to "on mouseUp"¬& return & "visual effect scroll left slow"¬& return & "go card" && check¬& return & "end mouseUp"end ifset the style of btn (the number of buttons) to checkBoxset showName of btn (the number of buttons) to falseshow btn (the number of buttons) at 150,150set rect of btn(the number of buttons) to 100,139,118,154unlock screenend ifend posLinkBtnon posBtn --goes with smiley faceglobal optionsData, positiveCardif word 4 of optionsData contains "st"thenAnswer "You are in student preview mode. Click on the EYE icon to change to the teacher mode and try again."¬with "OK"exit posBtnend ifchoose browse toolanswer "You must be on the page that you want to make a 'Positive Feedback' page."¬with "I am!" or "Cancel"if it is "Cancel"thenexit posBtnelselock screendoMenu "New Button"set the rect of btn (the number of buttons) to 4,2,40,50set the style of btn (the number of buttons) to transparentset showName of btn (the number of buttons) to falseset the icon of btn (the number of buttons) to 26465choose the browse toolend ifset the cursor to busyput the short id of this card into idNumlock screenpushItif fld "Positive Data" is emptythenput idNum into fld "Positive Data"put fld "Positive Data" into positiveCardelseput " " & idNum after fld "Positive Data"put fld "Positive Data" into positiveCardend ifpop cardend posBtnon negLink --goes with the - icon on the palette "Teacher"global optionsDataif word 4 of optionsData contains "st"thenAnswer "You are in student preview mode. Click on the EYE icon to change to the teacher mode and try again."¬with "OK"exit negLinkend ifchoose browse toollock screenanswer "This prepares a button for an incorrect response. You must know the page number of the 'Try again' page you want to link to. Is that what you want to do?"¬with "Cancel" or "Yes"if it is "Cancel"thenexit negLinkelsedoNegBtnend ifend negLinkon doNegBtn --goes with the - icon on the palette "Teacher"lock screenset the cursor to watchask "Number or name (ONE word!) of the INCORRECT FEEDBACK CARD?"put it into destinationanswer "Is the student to go back or continue on after the feedback?"¬with "Continue" or "Go back"put it into theResponseif theResponse is "Continue"thenask "Continue to what card?"put it into setPagepush this cdgo cd destinationhide btn "Click on me to try again"show btn "Go on"put the script of btn "Go on" into tempScriptput setPage into word 3 of line 3 of tempScriptset the script of btn "Go on" to tempScriptchoose browse toolpop cardend ifdomenu "New Button"if theResponse is "Go back"thenset the script of btn (the number of buttons) to "on mouseUp" & return & "push this card" &¬return & "visual effect shrink to center" & return & "go card" && destination & return & "end mouseUp"elseset the script of btn (the number of buttons) to "on mouseUp" &¬return & "visual effect shrink to center" & return & "go card" && destination & return & "end mouseUp"end ifset the style of btn (the number of buttons) to checkBoxset showName of btn (the number of buttons) to falseset rect of btn(the number of buttons) to 100,139,118,154unlock screenend doNegBtnon negBtn --goes with the unhappy face on palette "Teacherglobal optionsDataif word 4 of optionsData contains "st"thenAnswer "You are in student preview mode. Click on the EYE icon to change to the teacher mode and try again."¬with "OK"exit negBtnend ifchoose browse toollock screenanswer "You must be on the page that you want to make an 'Incorrect Response' page."¬with "I am!" or "Cancel"if it is "Cancel"thenexit negBtnelsedoNegFaceBtnend ifchoose browse toolunlock screenend negBtnon doNegFaceBtn --goes with the unhappy face on palette "Teacher"doMenu "New Button"set the rect of btn (the number of buttons) to 189,260,309,309set the style of btn (the number of buttons) to shadowset showName of btn (the number of buttons) to trueset the icon of btn (the number of buttons) to 32595set the script of btn (the number of buttons) to "on mouseUp" & return & "visual effect stretch from center" ¬& return & "pop card" & return & "end mouseUp"set the name of btn (the number of buttons) to "Click on me to try again"doMenu "New Button"set the rect of btn (the number of buttons) to 189,260,309,309set the style of btn (the number of buttons) to shadowset showName of btn (the number of buttons) to trueset the icon of btn (the number of buttons) to 32595set the script of btn (the number of buttons) to "on mouseUp"¬& return & "visual effect stretch from center" ¬& return & "go cd 4" & return & "end mouseUp"set the name of btn (the number of buttons) to "Go on"hide button "Go on"end doNegFaceBtnon studentViewglobal optionsDatalock screenset the cursor to busyif word 4 of optionsData contains "te"thenrepeat with i = 1 to (the number of backgrounds)go bg ihide bg btn "Right"hide bg btn "Left"end repeathide tool windowhide messageput "st" & " " into word 4 of optionsDataset the userLevel to 2elserepeat with i = 1 to (the number of backgrounds)go bg ishow bg btn "Right"show bg btn "Left"end repeatshow tool windowput "te" & " " into word 4 of optionsDataset the userLevel to 5end ifend studentViewon cutCard --on the X button on palette "Teacher"global optionsData, idNumif word 4 of optionsData contains "st"thenAnswer "You are in student preview mode. Click on the EYE icon to change to the teacher mode and try again."¬with "OK"exit cutCardend ifanswer "Do you want to delete this card?" with "Yes" or "No"if it is "Yes"thenidNumCheckgo cd id idNumdoMenu Cut cardunlock screenelseexit cutCardend ifend cutCardon idNumCheck --on the X button on palette "Teacher"global idNum, positiveCardput the short id of this card into idNumset the cursor to watchrepeat with count = 1 to the number of words in positiveCardif word count of positiveCard contains idNumthenpushItput empty into word count of fld "Positive Data"put fld "Positive Data" into positiveCardpop cardexit repeatend ifend repeatend idNumCheckon printMechoose browse toolanswer "Do you want to print?" with "Yes" or "Cancel"if it is "Cancel"thenexit printMeelseprintStuffend ifend printMeon printStuffanswer "Print what?" with "A field?" or "This card?" or "Stack?"if it is "A field?"thendoMenu "Print field..."elseif it is "This card?"thendoMenu "Print card"elseif it is "Stack?"thendoMenu "Print stack..."end ifend ifend ifend printStuffon showToolglobal optionsDataif word 4 of optionsData contains "st"thenAnswer "You are in student preview mode. Click on the EYE icon to change to the teacher mode and try again."¬with "OK"exit showToolend ifanswer "Do you want to use the tools menu?" with "Cancel" or "Yes"if it is "Cancel"thenexit showToolelseshow tool window at 443,20end ifend showToolon newOneglobal optionsDataif word 4 of optionsData contains "st"thenAnswer "You are in student preview mode. Click on the EYE icon to change to the teacher mode and try again."¬with "OK"exit newOneend if--if the short name of this stack <> "HyperTEACH"--thenanswer "You are about to start a new stack. When prompted, type in a name for your stack."lock screengo firstask "Name of your new stack:" with "Type file name here."put it into newNamecreate stack newName with bg "MSTR"palette "Teacher", "30, 50"-- end ifend newOneon importPictglobal optionsDataif word 4 of optionsData contains "st"thenAnswer "You are in student preview mode. Click on the EYE icon to change to the teacher mode and try again."¬with "OK"exit importPictend ifanswer "Do you want to import a MacPaint-type picture?" with¬"OK" or "Cancel"if it is "Cancel"thenchoose browse toolexit importPictelsedoImportend ifchoose browse toolend importPicton doImportlock screenchoose select toolanswer "Do you want the picture imported on this card or on a new card?"¬with "This card" or "New Card"if it is "New Card"thendoMenu "New Card"end ifdoMenu "Import Paint..."end doImport</script>
